unit unit_TryAccess;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, odbcconn, sqldb, FileUtil, Forms, Controls, Graphics,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls, Grids;

type

  { Tfrm_main }

  Tfrm_main = class(TForm)
    btn_conn: TButton;
    btn_query: TButton;
    btn_close: TButton;
    cmb_dblist: TComboBox;
    cmb_tblist: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    lbl_driver: TLabeledEdit;
    lbl_dns: TLabeledEdit;
    lbl_user: TLabeledEdit;
    lbl_pass: TLabeledEdit;
    lbl_defdb: TLabeledEdit;
    lbl_sql: TLabeledEdit;
    lsb_fblist: TListBox;
    odbc_con: TODBCConnection;
    sql_link: TSQLTransaction;
    StatusBar1: TStatusBar;
    sgd_table: TStringGrid;
    procedure btn_closeClick(Sender: TObject);
    procedure Label1Click(Sender: TObject);
    procedure odbc_conAfterConnect(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  frm_main: Tfrm_main;

implementation

{$R *.lfm}

{ Tfrm_main }

procedure Tfrm_main.odbc_conAfterConnect(Sender: TObject);
begin

end;

procedure Tfrm_main.Label1Click(Sender: TObject);
begin

end;

procedure Tfrm_main.btn_closeClick(Sender: TObject);
begin
  close;
end;

end.

